x = rnorm( 100 )
    y = rnorm( 100 )
    df = data.frame( x, y )
    p = ggplot( df, aes( x = x, y = y ) ) + geom_point()
    ggplotly( p )